DECLARE SUB win6 ()
DECLARE SUB win7 ()
DECLARE SUB win8 ()
DECLARE SUB tie6 ()
DECLARE SUB tie7 ()
DECLARE SUB tie8 ()
DECLARE SUB lose6 ()
DECLARE SUB lose7 ()
DECLARE SUB lose8 ()
DECLARE SUB tie3 ()
DECLARE SUB win3 ()
DECLARE SUB lose3 ()
DECLARE SUB lose4 ()
DECLARE SUB lose5 ()
DECLARE SUB win4 ()
DECLARE SUB win5 ()
DECLARE SUB tie4 ()
DECLARE SUB tie5 ()
DECLARE SUB tie2 ()
DECLARE SUB win2 ()
DECLARE SUB lose2 ()
DECLARE SUB win ()
DECLARE SUB lose ()
DECLARE SUB tie ()
DECLARE SUB nosound ()
DECLARE SUB sarnia ()
CLS
PRINT "Welcome To Gordie Hannan's Rock, Paper & Scissors Game!"
PRINT "This Game Is Licenced As Freeware So Please Distrubute It!"
PRINT " "
PRINT " "

INPUT "Do You Wish To Play With (1)Sound or (2)Without Sound?"; volume
IF volume = 1 THEN CALL sarnia
IF volume = 2 THEN CALL nosound

SUB lose
PRINT "Sorry You LOSE!"
SOUND 1000, 1
SOUND 900, 1
SOUND 800, 1
SOUND 700, 1
SOUND 600, 1
SOUND 500, 1
SOUND 400, 1
SOUND 300, 1
SOUND 200, 1
SOUND 100, 1
END SUB

SUB lose2
PRINT "Sorry You LOSE!"

END SUB

SUB lose3
PRINT "You LOSE!"
PRINT "Computer Choose ROCK"
PRINT "You Choose SCISSORS"
SOUND 1000, 1
SOUND 900, 1
SOUND 800, 1
SOUND 700, 1
SOUND 600, 1
SOUND 500, 1
SOUND 400, 1
SOUND 300, 1
SOUND 200, 1
SOUND 100, 1

END SUB

SUB lose4
PRINT "You LOSE!"
PRINT "Computer Choose PAPER"
PRINT "You Choose ROCK"
SOUND 1000, 1
SOUND 900, 1
SOUND 800, 1
SOUND 700, 1
SOUND 600, 1
SOUND 500, 1
SOUND 400, 1
SOUND 300, 1
SOUND 200, 1
SOUND 100, 1

END SUB

SUB lose5
PRINT "You LOSE!"
PRINT "Computer Choose SCISSORS"
PRINT "You Choose PAPER"
SOUND 1000, 1
SOUND 900, 1
SOUND 800, 1
SOUND 700, 1
SOUND 600, 1
SOUND 500, 1
SOUND 400, 1
SOUND 300, 1
SOUND 200, 1
SOUND 100, 1
END SUB

SUB lose6
PRINT "You LOSE!"
PRINT "Computer Choose ROCK"
PRINT "You Choose SCISSORS"
END SUB

SUB lose7
PRINT "You LOSE!"
PRINT "Computer Choose PAPER"
PRINT "You Choose ROCK"
END SUB

SUB lose8
PRINT "You LOSE!"
PRINT "Computer Choose SCISSORS"
PRINT "You Choose PAPER"
END SUB

SUB nosound
CLS
PRINT "Welcome To Gordie Hannan's Rock, Paper & Scissors Game!"
PRINT "This Game Is Licenced As Freeware So Please Distrubute It!"
PRINT " "
PRINT " "
INPUT "What Is Your Name??"; name$
DO
CLS
PRINT "Welcome To Gordie Hannan's Rock, Paper & Scissors Game!"
PRINT "This Game Is Licenced As Freeware So Please Distrubute It!"
PRINT " "
PRINT " "
PRINT name$
INPUT "(1) Rock, (2) Paper, or (3) Scissors?"; choice
'This Next Part May Becom a Sub Program Called Logistics
RANDOMIZE TIMER
computer = INT(RND * 3) + 1
IF computer = 1 AND choice = 1 THEN CALL tie6
IF computer = 2 AND choice = 2 THEN CALL tie7
IF computer = 3 AND choice = 3 THEN CALL tie8
IF computer = 1 AND choice = 2 THEN CALL win6
IF computer = 2 AND choice = 3 THEN CALL win7
IF computer = 3 AND choice = 1 THEN CALL win8
IF computer = 1 AND choice = 3 THEN CALL lose6
IF computer = 2 AND choice = 1 THEN CALL lose7
IF computer = 3 AND choice = 2 THEN CALL lose8
'End of Logistics
PRINT " "
PRINT " "
INPUT "Do You Wish You Play (1)Again, Or Do You Wish To (2)Quit?"; again
LOOP WHILE again = 1
IF again = 2 THEN END
END SUB

SUB sarnia
CLS
PRINT "Welcome To Gordie Hannan's Rock, Paper & Scissors Game!"
PRINT "This Game Is Licenced As Freeware So Please Distrubute It!"
PRINT " "
PRINT " "
INPUT "What Is Your Name??"; name$
DO
CLS
PRINT "Welcome To Gordie Hannan's Rock, Paper & Scissors Game!"
PRINT "This Game Is Licenced As Freeware So Please Distrubute It!"
PRINT " "
PRINT " "
PRINT name$
INPUT "(1) Rock, (2) Paper, or (3) Scissors?"; choice
'This Next Part May Becom a Sub Program Called Logistics
RANDOMIZE TIMER
computer = INT(RND * 3) + 1
IF computer = 1 AND choice = 1 THEN CALL tie3
IF computer = 2 AND choice = 2 THEN CALL tie4
IF computer = 3 AND choice = 3 THEN CALL tie5
IF computer = 1 AND choice = 2 THEN CALL win3
IF computer = 2 AND choice = 3 THEN CALL win4
IF computer = 3 AND choice = 1 THEN CALL win5
IF computer = 1 AND choice = 3 THEN CALL lose3
IF computer = 2 AND choice = 1 THEN CALL lose4
IF computer = 3 AND choice = 2 THEN CALL lose5
'End of Logistics
PRINT " "
PRINT " "
INPUT "Do You Wish You Play (1)Again, Or Do You Wish To (2)Quit?"; again
LOOP WHILE again = 1
IF again = 2 THEN END
'
END SUB

SUB tie
PRINT "You Have TIED Please Try Again!"
SOUND 1000, 1
SOUND 900, 1
SOUND 800, 1
SOUND 700, 1
SOUND 600, 1
SOUND 500, 1
SOUND 400, 1
SOUND 300, 1
SOUND 200, 1
SOUND 100, 1
SOUND 100, 1
SOUND 200, 1
SOUND 300, 1
SOUND 400, 1
SOUND 500, 1
SOUND 600, 1
SOUND 700, 1
SOUND 800, 1
SOUND 900, 1
SOUND 1000, 1

END SUB

SUB tie2
PRINT "You Have TIED Please Try Again!"
END SUB

SUB tie3
PRINT "It's A DRAW"
PRINT "Computer Choose ROCK"
PRINT "You Choose ROCK"
SOUND 1000, 1
SOUND 900, 1
SOUND 800, 1
SOUND 700, 1
SOUND 600, 1
SOUND 500, 1
SOUND 400, 1
SOUND 300, 1
SOUND 200, 1
SOUND 100, 1
SOUND 100, 1
SOUND 200, 1
SOUND 300, 1
SOUND 400, 1
SOUND 500, 1
SOUND 600, 1
SOUND 700, 1
SOUND 800, 1
SOUND 900, 1
SOUND 1000, 1

END SUB

SUB tie4
PRINT "It's A DRAW"
PRINT "Computer Choose PAPER"
PRINT "You Choose PAPER"
SOUND 1000, 1
SOUND 900, 1
SOUND 800, 1
SOUND 700, 1
SOUND 600, 1
SOUND 500, 1
SOUND 400, 1
SOUND 300, 1
SOUND 200, 1
SOUND 100, 1
SOUND 100, 1
SOUND 200, 1
SOUND 300, 1
SOUND 400, 1
SOUND 500, 1
SOUND 600, 1
SOUND 700, 1
SOUND 800, 1
SOUND 900, 1
SOUND 1000, 1

END SUB

SUB tie5
PRINT "It's A DRAW"
PRINT "Computer Choose SCISSORS"
PRINT "You Choose SCISSORS"
SOUND 1000, 1
SOUND 900, 1
SOUND 800, 1
SOUND 700, 1
SOUND 600, 1
SOUND 500, 1
SOUND 400, 1
SOUND 300, 1
SOUND 200, 1
SOUND 100, 1
SOUND 100, 1
SOUND 200, 1
SOUND 300, 1
SOUND 400, 1
SOUND 500, 1
SOUND 600, 1
SOUND 700, 1
SOUND 800, 1
SOUND 900, 1
SOUND 1000, 1

END SUB

SUB tie6
PRINT "It's A DRAW"
PRINT "Computer Choose ROCK"
PRINT "You Choose ROCK"
END SUB

SUB tie7
PRINT "It's A DRAW"
PRINT "Computer Choose PAPER"
PRINT "You Choose PAPER"
END SUB

SUB tie8
PRINT "It's A DRAW"
PRINT "Computer Choose SCISSORS"
PRINT "You Choose SCISSORS"
END SUB

SUB win
PRINT "You WIN!"
SOUND 100, 1
SOUND 200, 1
SOUND 300, 1
SOUND 400, 1
SOUND 500, 1
SOUND 600, 1
SOUND 700, 1
SOUND 800, 1
SOUND 900, 1
SOUND 1000, 1
END SUB

SUB win2
PRINT "You WIN!"
END SUB

SUB win3
PRINT "You WIN!"
PRINT "Computer Choose ROCK"
PRINT "You Choose PAPER"
SOUND 100, 1
SOUND 200, 1
SOUND 300, 1
SOUND 400, 1
SOUND 500, 1
SOUND 600, 1
SOUND 700, 1
SOUND 800, 1
SOUND 900, 1
SOUND 1000, 1

END SUB

SUB win4
PRINT "You WIN!"
PRINT "Computer Choose PAPER"
PRINT "You Choose SCISSORS"
SOUND 100, 1
SOUND 200, 1
SOUND 300, 1
SOUND 400, 1
SOUND 500, 1
SOUND 600, 1
SOUND 700, 1
SOUND 800, 1
SOUND 900, 1
SOUND 1000, 1

END SUB

SUB win5
PRINT "You WIN!"
PRINT "Computer Choose SCISSORS"
PRINT "You Choose ROCK"
SOUND 100, 1
SOUND 200, 1
SOUND 300, 1
SOUND 400, 1
SOUND 500, 1
SOUND 600, 1
SOUND 700, 1
SOUND 800, 1
SOUND 900, 1
SOUND 1000, 1

END SUB

SUB win6
PRINT "You WIN!"
PRINT "Computer Choose ROCK"
PRINT "You Choose PAPER"
END SUB

SUB win7
PRINT "You WIN!"
PRINT "Computer Choose PAPER"
PRINT "You Choose SCISSORS"
END SUB

SUB win8
PRINT "You WIN!"
PRINT "Computer Choose SCISSORS"
PRINT "You Choose ROCK"
END SUB

